perm filename ARCS.MF[MF,ALS] blob sn#571674 filedate 1981-03-20 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	"Arcs of a Circle font created by ALS"
C00004 00003	"`a: From S to E"
C00005 00004	"`b: From W to S"
C00006 00005	"`c: From N to E"
C00007 00006	"`d: From W to N"
C00008 ENDMK
CāŠ—;
"Arcs of a Circle font created by ALS";
% To draw a complete circle write
%              ab
%              cd
% with \baselineskip set to pts value.

% fntmode; % this causes a font to be created for the XGP?
% tfmmode; % this causes a TEX information file to be produced
% proofmode; 
drawdisplay;
titletrace; % this prints out quoted strings when they occur
pts=50; % Creating a 1.38 inch diameter circle.
% Maximum value limited to 100 or 2.76 inches.
pixels=5.3; % raster units per point for TEX on the DOVER maybe
w0=3;
cpen; maxht top0 pts.pixels. % tallest output in raster units
r=pts.pixels;

subroutine darc(index i,index j, index k):
% Quadrant circular arc from point i to point j 
% with point k on the convex side.
x1=xi; x2=xj; x3=xk; y1=yi; y2=yj; y3=yk;
cpen; w0 draw 1{xk-xi,yk-yi}..2{xj-xk,yj-yk};
charht pts; charwd pts; chardw round pts.
"`a: From S to E";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `a;
call darc(2,3,1).
"`b: From W to S";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `b;
call darc(1,4,2).
"`c: From N to E";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `c;
call darc(1,4,3).
"`d: From W to N";
x1=x3=y3=y4=0; y1=x2=y2=x4=r;
charcode `c;
call darc(3,2,4).
end.